#Exerccios 2 - Funes Matemticas
#Gustavo Agudelo. No. USP: 8893871

#2.1 Biomassa de rvores
d <- 15
h <- 12
biomassa1 <- (exp(-1.7953))*(d^2.2974)
biomassa1

b <- (-2.6464)+((1.9960)*log(d))+((0.7558)*log(h))
biomassa2 <- exp(b)
biomassa2

biomassa1 - biomassa2

#2.2 Sequncias

#1. Objeto chamado letra.a com caracteres: a a a a a a
a <- "a"
letra.a <- rep("a", 6)
letra.a

#2. Objeto chamado "numeros" com valores numricos inteiros: 1 1 1 2 2 2 3 3 3
numeros <- rep(1:3, each=3)
numeros

#3. Objeto chamado "decrescente" com valores numricos inteiros: 1 1 1 2 2 3
decrescente <- c(rep(1,3), rep(2,2), 3)
decrescente

#4. Objeto chamado "sequencia" com valores numricos inteiros: 1 2 3 4 5 4 3 2 1
sequencia <- c(seq(1,5), seq(4,1))
sequencia

#5. Objeto chamado "impares": criar uma sequncia de nmeros mpares de 1 a 99
impares <- seq(1,99, by=2)
impares

#2.3 Conta de luz
luz <- c(9839, 10149, 10486, 10746, 11264, 11684, 12082, 12599, 13004, 13350, 13717, 14052)
luz
luz.cons <- diff(luz)
luz.cons
luz.m <- mean(luz.cons)
luz.m
luz.md <- median(luz.cons)
luz.md
luz.v <- var(luz.cons)
luz.v
luz.range <- c(min(luz.cons), max(luz.cons))
luz.range

#2.4 rea basal
arvore1 <- (pi)*(6.75^2)
arvore1

arvore2 <- ((pi)*(3.5^2))+((pi)*(4.5^2))+((pi)*(6^2))
arvore2

#2.5 Varincia na Unha
pesos <- c(78.4, 79.8, 76.0, 75.3, 77.4, 78.6, 77.9, 78.8, 79.2, 75.2, 75.0, 79.4)
m <- mean(pesos)
m
pesos.d2 <- (pesos - m)^2
pesos.d2
pesos.d2s <- sum(pesos.d2)
pesos.d2s
pesos.v <- (pesos.d2s)/(12-1)
pesos.v

pesos.ds <- sqrt(pesos.d2s)
pesos.ds
pesos.s <- (pesos.ds)/(sqrt(12-1))
pesos.s

#2.6 Teste t
teste.t <- pt(q=-2.2, df=19, lower.tail = TRUE)*2
teste.t

limite <- abs(qt(p=0.025, df=19))
limite